Group=Simple Deform
Name=Yȏk
Init=coord=-1;\nvTplane=1;\ncoord=-1;\n?a1,,0,100,100;\n?a2,c,0,100,0;\n?k,%̃sNZ,0,1,0;\n?s1,V[v,0,10,4;\n?s3,xl,0,1,0;\n?a3,␳,0,5,3;\na3=a3/1530;\ns1=s1/40;\ncx=cy=i1=i2=0;\n_Fill(0,0,0);\n_FillT(0);\nif(k==0){\nif(a1==0){\na1=a2;\n}\nif(a2==0){\na2=a1;\n}\na1=int(0.5+xs*a1/100)/xs;\na2=int(0.5+ys*a2/100)/ys;\n} else {\nif(a1==0){\na1=int(xs*a2/ys);\n}\nif(a2==0){\na2=int(ys*a1/xs);\n}\na1=a1/xs;\na2=a2/ys;\n}\n
Prog=if(a2<1){\nwhile(xs-1>=i1){\nwhile((a2*(ys-1))>=i2){\nR=G=B=T=b2=b3=b4=b5=0;\ny0=(i2-0.5)/a2;\ny1=(i2+0.5)/a2;\ny2=(i2+1.5)/a2;\ny3=max((0.5),(int(y0+0.5)+0.5));\ny2=min(y2,ys);\nwhile(y3<y2){\nb4=1-abs((y3-y1)/(y1-y0));\nb2=(b4)*T(i1,int(y3))/255*(1+a3*(R(i1,int(y3))+G(i1,int(y3))+B(i1,int(y3))));\nb3=b3+b2;\nb5=b5+b4;\nadd(i1,int(y3),b2);\nT=T+T(i1,int(y3))*b4;\ny3=y3+1;\n}\nR=R/b3+0.5;\nG=G/b3+0.5;\nB=B/b3+0.5;\nT=T/b5+0.5;\n_Pset(i1,i2);\n_Tset(i1,i2);\ni2=i2+1;\n}\ni1=i1+1;\ni2=0;\n}\n_Copy(-1);\n_Fill(255,255,255);\n_FillT(0);\n}\nif(a1<1){\ni1=0;\ni2=0;\nwhile((a1*(xs-1))>=i1){\nwhile((a2*(ys-1))>=i2){\nR=G=B=T=b2=b3=b4=b5=0;\nx0=(i1-0.5)/a1;\nx1=(i1+0.5)/a1;\nx2=(i1+1.5)/a1;\nx3=max((0.5),(int(x0+0.5)+0.5));\nx2=min(x2,xs);\nwhile(x3<x2){\nb4=1-abs((x3-x1)/(x1-x0));\nb2=(b4)*T(int(x3),i2)/255*(1+a3*(R(int(x3),i2)+G(int(x3),i2)+B(int(x3),i2)));\nb3=b3+b2;\nb5=b5+b4;\nadd(int(x3),i2,b2);\nT=T+T(int(x3),i2)*b4;\nx3=x3+1;\n}\nR=R/b3+0.5;\nG=G/b3+0.5;\nB=B/b3+0.5;\nT=T/b5+0.5;\n_Pset(i1,i2);\n_Tset(i1,i2);\ni2=i2+1;\n}\ni1=i1+1;\ni2=0;\n}\n_Copy(-1);\n_FillT(0);\n_Fill(255,255,255);\n}\ns2=s1;\nif(a1==1){\ns1=0;\n}\nif(a2==1){\ns2=0;\n}\ni1=i2=0;\nwhile(a1*(xs-1)>=i1){\nwhile(a2*(ys-1)>=i2){\nR=G=B=0.5;\nb1=s1*T(i1-1,i2)/255;\nb2=s1*T(i1+1,i2)/255;\nb3=s2*T(i1,i2+1)/255;\nb4=s2*T(i1,i2-1)/255;\nadd(i1,i2,1+b1+b2+b3+b4);\nadd(i1-1,i2,-b1);\nadd(i1+1,i2,-b2);\nadd(i1,i2+1,-b3);\nadd(i1,i2-1,-b4);\nT=T(i1,i2);\nT=T*(1-s3)+s3*int((T+127)/255)*255;\n_Pset(i1,i2);\n_Tset(i1,i2);\ni2=i2+1;\n}\ni1=i1+1;\ni2=0;\n}\nexit(-1);
